home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aak.d64 / o sacred head (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  100 lines
  1. 80 IFPEEK(822)THEN100
  2. 84 PRINT"[147]":POKE646,0:POKE53272,21:POKE53280,0:POKE53281,1
  3. 85 PRINTTAB(14)"O SACRED HEAD":PRINTTAB(11)"MUSIC BY J.S. BACH
  4. 90 [151]822,1:[147]"OSH PLAY",8,1
  5. 94 [153]"LOAD":[151]646,0:[151]53272,21:[151]53281,1
  6. 95 [153][163]14)"O SACRED HEAD":[153][163]11)"MUSIC BY J.S. BACH
  7. 98 FORAA=1TO4000:NEXT
  8. 100 SYS38234:GOSUB1800:PRINT"":PRINTCHR$(5):S=20:T=TI:ZZ=FRE(0)
  9. 1200 T$="    O ":GOSUB1640:T$="SA":GOSUB1640:T$="CRED ":GOSUB1640
  10. 1205 T$="HEAD ":GOSUB1640:T$="SUR":GOSUB1640:T$="ROUND":GOSUB1600
  11. 1210 T$="ED ":GOSUB1640:PRINT:T$="      WITH ":GOSUB1640:T$="CROWN ":GOSUB1640
  12. 1215 T$="OF ":GOSUB1640:T$="PIER":GOSUB1650:T$="":GOSUB1650
  13. 1220 T$="CING ":GOSUB1640:T$="THORNS;":GOSUB1700:PRINT:T$="    O ":GOSUB1640
  14. 1225 T$="BLEED":GOSUB1640:T$="ING ":GOSUB1640:T$="HEAD ":GOSUB1640
  15. 1230 T$="SORE ":GOSUB1640:T$="WOUND":GOSUB1600:T$="ED, ":GOSUB1640
  16. 1235 PRINT:T$="      RE":GOSUB1640:T$="VILED ":GOSUB1640:T$="AND ":GOSUB1640
  17. 1240 T$="PUT ":GOSUB1650:T$="":GOSUB1650:T$="TO ":GOSUB1640
  18. 1245 T$="SCORN;":GOSUB1700:PRINT:T$="    DEATH'S ":GOSUB1640:T$="PAL":GOSUB1650
  19. 1250 T$="":GOSUB1650:T$="LID ":GOSUB1640:T$="HUE ":GOSUB1640
  20. 1255 T$="COMES ":GOSUB1640:T$="O'ER ":GOSUB1600:T$="THEE,":GOSUB1640
  21. 1260 PRINT:T$="      THE ":GOSUB1640:T$="GLOW ":GOSUB1640:T$="OF ":GOSUB1640
  22. 1265 T$="LIFE ":GOSUB1640:T$="DE":GOSUB1640:T$="CAYS;":GOSUB1700
  23. 1270 PRINT:T$="    YET ":GOSUB1640:T$="AN":GOSUB1650:T$="":GOSUB1650
  24. 1275 T$="GEL ":GOSUB1640:T$="HOSTS ":GOSUB1640:T$="A":GOSUB1640:
  25. 1280 T$="DORE ":GOSUB1600:T$="THEE, ":GOSUB1640:PRINT
  26. 1282 PL=1:T$="      AND ":GOSUB1640
  27. 1285 T$="TREM":GOSUB1640:T$="BLE ":GOSUB1640:T$="AS ":GOSUB1640
  28. 1290 T$="THEY ":GOSUB1640:T$="GAZE.":GOSUB1690
  29. 1295 PRINT"":FORAA=1TO2000:NEXT
  30. 1450 GOSUB1900:PRINT"":POKE646,1
  31. 1455 T$="I SEE THY STRENGTH AND VIGOR":GOSUB1710
  32. 1458 T$="ALL FADING IN THE STRIFE,":GOSUB1720
  33. 1460 T$="AND DEATH WITH CRUEL RIGOR":GOSUB1710
  34. 1462 T$="DEPRIVING THEE OF LIFE.":GOSUB1720
  35. 1463 T$="O AGONY AND DYING!":GOSUB1710
  36. 1465 T$="O LOVE, TO SINNERS FREE!":GOSUB1720
  37. 1466 T$="JESUS, ALL GRACE SUPPLYING,":GOSUB1710
  38. 1468 T$="MY HEART GOES OUT TO THEE!":GOSUB1720
  39. 1470 PRINT"":POKE822,0
  40. 1480 IFPEEK(788)<>49THEN1480
  41. 1490 FORAA=1TO3000:NEXT:GOTO2000
  42. 1600 T=T+4*S:PRINTT$;
  43. 1602 IFT>TITHEN1602
  44. 1605 RETURN
  45. 1640 IFPLTHENT=T+S*.55
  46. 1641 T=T+2*S:PRINTT$;
  47. 1642 IFT>TITHEN1642
  48. 1645 RETURN
  49. 1650 T=T+S:PRINTT$;
  50. 1652 IFT>TITHEN1652
  51. 1655 RETURN
  52. 1660 T=T+4*S:PRINTSPC(30)T$
  53. 1662 IFT>TITHEN1662
  54. 1665 RETURN
  55. 1670 T=T+4*S:PRINTSPC(20)T$;
  56. 1672 IFT>TITHEN1672
  57. 1675 RETURN
  58. 1680 T=T+8*S:PRINTSPC(33)T$;
  59. 1685 RETURN
  60. 1690 T=T+8*S:PRINTT$;
  61. 1692 IFT>TITHEN1692
  62. 1695 RETURN
  63. 1700 T=T+6*S+S*.25:PRINTT$
  64. 1702 IFT>TITHEN1702
  65. 1705 RETURN
  66. 1710 PRINTT$:FORAA=1TO4696:NEXT
  67. 1715 RETURN
  68. 1720 PRINTT$:PRINT:FORAA=1TO4696:NEXT
  69. 1725 RETURN
  70. 1800 PRINT"[147]":POKE53272,21:POKE53281,10:POKE53280,0:PRINTTAB(19)"[219]
  71. 1805 [153]"O SACRED HEAD SURROUNDED
  72. 1810 PRINT"WITH CROWN OF PIERCING THORNS;
  73. 1820 [153]"O BLEEDING HEAD SORE WOUNDED,
  74. 1830 PRINT"REVILED AND PUT TO SCORN;
  75. 1840 [153]"DEATH'S PALLID HUE COMES O'ER THEE,
  76. 1850 PRINT"THE GLOW OF LIFE DECAYS;
  77. 1860 [153]"YET ANGEL HOSTS ADORE THEE,
  78. 1870 PRINT"AND TREMBLE AS THEY GAZE.":FORAA=1TO2050:NEXT:RETURN
  79. 1900 PRINT"[147]":POKE53281,4:PRINTCHR$(144)TAB(19)"[219]
  80. 1905 [158]38234:[153]"I SEE THY STRENGTH AND VIGOR
  81. 1910 PRINT"ALL FADING IN THE STRIFE;
  82. 1920 [153]"AND DEATH WITH CRUEL RIGOR
  83. 1930 PRINT"DEPRIVING THEE OF LIFE.
  84. 1940 [153]"O AGONY AND DYING!
  85. 1950 PRINT"O LOVE, TO SINNERS FREE!
  86. 1960 [153]"JESUS, ALL GRACE SUPPLYING,
  87. 1970 PRINT"MY HEART GOES OUT TO THEE!":FORAA=1TO2060:NEXT:RETURN
  88. 2000 PRINT"[147]":POKE53272,23:POKE53281,1
  89. 2005 POKE646,0:PRINTTAB(13)"[212]O [210]EPEAT - [210]
  90. 2010 [153][163]13)"(null)USIC (null)ENU - (null)
  91. 2020 PRINTTAB(15)"[209]UIT - [209]
  92. 2030 [151]198,0
  93. 2040 [161]A$:[139]A$[178]""[167]2040
  94. 2050 [139]A$[178]"M"[167][151]646,1:[153]"LOAD";:[137]2090
  95. 2060 [139]A$[178]"R"[167]PL[178]0:[137]94
  96. 2070 [139]A$[178]"Q"[167][128]
  97. 2080 [139]A$[179][177]"M"[176]A$[179][177]"Q"[176]A$[179][177]"R"[167]2040
  98. 2090 [153]"LOAD"[199](34)"MUSIC MENU"[199](34)",8
  99. 2095 PRINT"RUN":POKE198,3:POKE631,19:POKE632,13:POKE633,13
  100.